home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / gnu / a2_0bEmacs_bin.lha / Emacs-19.25 / emacs < prev    next >
AmigaDOS Script File  |  1992-10-01  |  1KB  |  30 lines
  1. .key a1,a2,a3,a4,a5,a6,a7,a8,a9
  2. .bra {                                       
  3. .ket }   
  4. ; Startup script for GNU Emacs                                    
  5. ; Make sure the FIFO handler is ready        
  6. assign >NIL: FIFO: exists                    
  7. if warn                                      
  8.   if exists L:fifo-handler                   
  9.     echo "Starting fifo-handler"             
  10.     run <NIL: >NIL: L:fifo-handler           
  11.   else                                       
  12.     echo "Cannot find L:fifo-handler."       
  13.     echo "External processes will not work." 
  14.   endif                                      
  15. endif                                        
  16. ; Increase the stack size as needed          
  17. set stk=`stack`
  18. rx "fortytwo=42"
  19. set stack `rx "say subword($stk, 5, 1)"`
  20. unset stk
  21. if not $stack gt 40000 val
  22.   stack 40000
  23. endif
  24. ; Invoke GNU Emacs
  25. run gnuemacs:temacs {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {a9}
  26. ; Restore the previous stack size                                       
  27. stack $stack
  28. unset stack
  29.  
  30.